home *** CD-ROM | disk | FTP | other *** search
- object FormNews: TFormNews
- Left = 283
- Top = 168
- Width = 640
- Height = 480
- Caption = 'BobNews -- Dr.Bob'#39's News Reader v0.1'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- ShowHint = True
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Splitter: TSplitter
- Left = 172
- Top = 30
- Width = 3
- Height = 312
- Cursor = crHSplit
- end
- object TSplitter
- Left = 0
- Top = 342
- Width = 632
- Height = 3
- Cursor = crVSplit
- Align = alBottom
- end
- object ToolBar: TPanel
- Left = 0
- Top = 0
- Width = 632
- Height = 30
- Align = alTop
- TabOrder = 0
- object BtnConnect: TSpeedButton
- Left = 8
- Top = 4
- Width = 23
- Height = 22
- Hint = 'Connect'
- Glyph.Data = {
- DE010000424DDE01000000000000760000002800000024000000120000000100
- 0400000000006801000000000000000000001000000010000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
- 6666666666666F6666666666000066666636666666666666666686F666666666
- 0000666666306666666666666666886F66666666000066666663066666666666
- 66666886F6666666000066666663B066666666666666F8F86F66666600006666
- 63000F06666666666668888686F666660000666663FBFBF06666666666686F66
- 686F666600006666663FB0333666666666668F688886666600006666663BFB06
- 6666666666FF8FF686F66666000066630000BFB06666666668888866686F6666
- 00006663FBFBFBFB06666666686F6666668F6666000066663FBFB03336666666
- 668F666888866666000066663BFBFB06666666666686F66686F6666600006666
- 63BFBFB0666666666668F666686F66660000666663FBFBFB0666666666686F66
- 6686F66600006666663FBFBFB066666666668FFFFFF8FF660000666666333333
- 3336666666668888888886660000666666666666666666666666666666666666
- 0000}
- NumGlyphs = 2
- OnClick = BtnConnectClick
- end
- object BtnDisconnect: TSpeedButton
- Left = 32
- Top = 4
- Width = 23
- Height = 22
- Hint = 'Disconnect'
- Enabled = False
- Glyph.Data = {
- DE010000424DDE01000000000000760000002800000024000000120000000100
- 0400000000006801000000000000000000001000000010000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666660666
- 666666666666668F666666660000666666600666666666666666688F66666666
- 00006666668008666666666666668888F66666660000666668F0086666666666
- 66686886F6666666000066660FF0FF6666666666668F68F6F666666600006660
- 0F00F88666666666688F88F68F66666F00006680000080066666806688888888
- 8F666688000068FF0F0070006668F068F68F886888F66868000068F00F87F80F
- 868B0668F88F8F68868F8686000068000800F0FFF8F06668888F88F8F6686866
- 000066008000000F8B066666888888888F86866600006607700F0008F0666666
- 8F6886888868666600006687F0FFF08B066666668F68F6688686666600006668
- 800FF8F06666666668888FF8686666660000666600008B066666666666888886
- 86666666000066666008F06666666666666888686666666600006666668B0666
- 6666666666668F86666666660000666666806666666666666666886666666666
- 0000}
- NumGlyphs = 2
- OnClick = BtnDisconnectClick
- end
- object BtnJoin: TSpeedButton
- Left = 72
- Top = 4
- Width = 23
- Height = 22
- Hint = 'Join newsgroup'
- Enabled = False
- Glyph.Data = {
- DE010000424DDE01000000000000760000002800000024000000120000000100
- 0400000000006801000000000000000000001000000010000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
- 6666666666666666666666660000666666666666666666666666666666666666
- 0000666666666666666666666666666666666666000066666666FFF666666666
- 666666FFF666666600006666666844F66666666666666877F666666600006666
- 666844F66666666666666877F666666600006666666844F66666666666666877
- F666666600006666FFF644FFFFF6666666FFF777FFFFF6660000666844444444
- 44F66666687777777777F666000066684444444444F66666687777777777F666
- 000066688888446888666666688888777888666600006666666844F666666666
- 66666877F666666600006666666844F66666666666666877F666666600006666
- 666844F66666666666666877F666666600006666666888666666666666666888
- 6666666600006666666666666666666666666666666666660000666666666666
- 6666666666666666666666660000666666666666666666666666666666666666
- 0000}
- NumGlyphs = 2
- OnClick = BtnJoinClick
- end
- end
- object StatusBar: TStatusBar
- Left = 0
- Top = 434
- Width = 632
- Height = 19
- Panels = <>
- SimplePanel = False
- end
- object MemoStatus: TMemo
- Left = 0
- Top = 345
- Width = 632
- Height = 89
- Align = alBottom
- ReadOnly = True
- ScrollBars = ssVertical
- TabOrder = 2
- end
- object ListBoxNewsGroups: TListBox
- Left = 0
- Top = 30
- Width = 172
- Height = 312
- Align = alLeft
- ItemHeight = 13
- Sorted = True
- TabOrder = 3
- OnDblClick = BtnJoinClick
- end
- object TPanel
- Left = 175
- Top = 30
- Width = 457
- Height = 312
- Align = alClient
- BevelOuter = bvNone
- TabOrder = 4
- object TSplitter
- Left = 0
- Top = 118
- Width = 457
- Height = 3
- Cursor = crVSplit
- Align = alTop
- end
- object MemoArticle: TMemo
- Left = 0
- Top = 121
- Width = 457
- Height = 191
- Align = alClient
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- ParentFont = False
- ReadOnly = True
- ScrollBars = ssBoth
- TabOrder = 0
- end
- object StringGridArticles: TStringGrid
- Left = 0
- Top = 0
- Width = 457
- Height = 118
- Align = alTop
- ColCount = 4
- DefaultColWidth = 145
- DefaultRowHeight = 16
- FixedCols = 0
- RowCount = 32767
- GridLineWidth = 0
- Options = [goFixedVertLine, goFixedHorzLine, goRangeSelect, goRowSelect]
- TabOrder = 1
- OnClick = StringGridArticlesClick
- end
- end
- object BNNTP: TBNNTP
- NewsServer = '194.229.217.69'
- Left = 96
- Top = 120
- end
- end
-